home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Games / QUID / Install-QuidITA < prev    next >
Text File  |  1997-08-25  |  6KB  |  202 lines
  1. ; $Id: Install Quid,v 1.0 97/05/15 17:39:10 lee Exp $
  2. ; $VER: Install-Quid 1.0
  3.  
  4. (set app_prefix "Quid?_")
  5. (set app_disk1  "1")
  6. (set app_disk2  "2")
  7. (set app_disk3  "3")
  8.  
  9. (set app_volume1 (cat app_prefix app_disk1 ":"))
  10. (set app_volume2 (cat app_prefix app_disk2 ":"))
  11. (set app_volume3 (cat app_prefix app_disk3 ":"))
  12.  
  13.  
  14.  
  15.  
  16. ; standard amiga error codes
  17. (set RC_OK     0
  18.      RC_WARN   5
  19.      RC_ERROR 10
  20.      RC_FATAL 20
  21.      )
  22. ;
  23. ; determine AmigaDos version and revision numbers
  24. ;
  25. (set AmigaDos_Number   (getversion))
  26. (set AmigaDos_Version  (/ AmigaDos_Number 65536))
  27. (set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))
  28.  
  29. ; --------------------------------------------------------------------
  30.  
  31. (procedure get_lhex
  32.  
  33.         (if ( = (exists "ram:lhex" (noreq)) 0)
  34.                 (
  35.                 (working "Sto copiando LHEX in Ram...\n")
  36.                 (copyfiles (source ("LHEX")) (dest "ram:"))
  37.                )
  38.         )
  39. )
  40.  
  41. (procedure get_disk
  42.  
  43.         (if (= #Want_disk 1)
  44.                 (set #DiskName (cat app_prefix app_disk1))
  45.                 (set #DiskName (cat app_prefix app_disk2)))
  46.         (if (= #Want_disk 3)
  47.                 (set #DiskName (cat app_prefix app_disk3))
  48.          )
  49.         (askdisk
  50.                 (prompt #Title_msg
  51.                         "\nPrego inserire il disco \""#DiskName"\".")
  52.                 (help "Inserire questo disco in un floppy drive per continuare l'installazione.")
  53.                 (assigns)
  54.                 (dest #DiskName)
  55.         )
  56.         (set #Current_disk #Want_disk)
  57. )
  58.  
  59. (procedure setup_hd_install
  60.    (message 
  61.       "\nQUID? verra' ora installato in un nuovo cassetto chiamato \"Quid?\"."
  62.       "Ti verra' chiesto dove creare questo nuovo cassetto.")
  63.    (set app_path (tackon
  64.        (askdir
  65.          (prompt "Indicare perfavore dove deve essere creato il cassetto di Quid?. ")
  66.          (help @askdir-help)
  67.         (default @default-dest)
  68.                           )
  69.                  "Quid")
  70.     )
  71.    (makedir app_path)
  72. )
  73.  
  74.  
  75.  
  76. (procedure copy_volume1
  77.   (complete 5)
  78.   (get_lhex)
  79.   (copyfiles
  80.          (prompt "Sto copiando data.lha ...")
  81.          (source ("data.lha"))
  82.          (dest   app_path)
  83.          (help @copyfiles-help)
  84.          (infos)
  85.          (fonts)
  86.          )
  87.   (complete 10)
  88.   (copyfiles
  89.          (prompt "Sto copiando levels01.lha ...")
  90.          (source ("levels01.lha"))
  91.          (dest   app_path)
  92.          (help @copyfiles-help)
  93.          (infos)
  94.          (fonts)
  95.          )
  96.   (complete 20)
  97.   (copyfiles
  98.          (prompt "Sto copiando levels02.lha ...")
  99.          (source ("levels02.lha"))
  100.          (dest   app_path)
  101.          (help @copyfiles-help)
  102.          (infos)
  103.          (fonts)
  104.          )
  105.   (complete 30)
  106.     (set options
  107.       (askoptions
  108.           (prompt "Quale dei seguenti Amiga Guide vuoi installare?")
  109.           (choices "English" "Italiano" "Deutsh")
  110.           (help "\n"
  111.            @askoptions-help)
  112.           )
  113.       )
  114.   (if (bitand 1 options)
  115.   (copyfiles
  116.          (prompt "Sto copiando QuidENG.guide ...")
  117.          (source ("QuidENG.guide"))
  118.          (dest   app_path)
  119.          (help @copyfiles-help)
  120.          (infos)
  121.          (fonts)
  122.          ))
  123.   (if (bitand 2 options)
  124.   (copyfiles
  125.          (prompt "Sto copiando QuidITA.guide ...")
  126.          (source ("QuidITA.guide"))
  127.          (dest   app_path)
  128.          (help @copyfiles-help)
  129.          (infos)
  130.          (fonts)
  131.          ))
  132.   (if (bitand 4 options)
  133.   (copyfiles
  134.          (prompt "Sto copiando QuidDE.guide ...")
  135.          (source ("QuidDE.guide"))
  136.          (dest   app_path)
  137.          (help @copyfiles-help)
  138.          (infos)
  139.          (fonts)
  140.          ))
  141.   (complete 40)
  142.   (set @default-dest app_path)
  143. )
  144.  
  145. (procedure dearchive
  146.  (complete 60)
  147.  (working "Sto decomprimendo \"data.lha\".\nUn po' di pazienza...")
  148.  (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/data.lha\"")))
  149.  (complete 70)
  150.   (working "Sto decomprimendo  \"levels01.lha\".\nUn po' di pazienza...")
  151.  (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/levels01.lha\"")))
  152.  (complete 80)
  153.   (working "Sto decomprimendo  \"levels02.lha\".\nUn po' di pazienza...")
  154.  (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/levels02.lha\"")))
  155.  (complete 97)
  156.  (delete (cat app_path "/levels01.lha"))
  157.  (delete (cat app_path "/levels02.lha"))
  158.  (delete (cat app_path "/data.lha"))
  159.  (delete "ram:lhex")
  160.  (rename (cat app_path "/levels/level00") (cat app_path "/levels/LEVEL00"))
  161.  (rename (cat app_path "/levels/level01") (cat app_path "/levels/LEVEL01"))
  162.  (rename (cat app_path "/levels/level02") (cat app_path "/levels/LEVEL02"))
  163.  (rename (cat app_path "/levels/level03") (cat app_path "/levels/LEVEL03"))
  164. )
  165.  
  166. ; --------------------------------------------------------------------
  167. ; do_exit
  168. ;   does the language installation
  169. ;   does the program registrations if requested
  170. ;   puts up regcard reminder and says thanks...
  171. ;
  172. (procedure do_exit
  173.  
  174. (complete 99)
  175. (message "\nRicordati che Quid? e' mailware...se ti piace e se pui, spediscimi"
  176.            "un'email all'indirizzo:\n"
  177.            "gtoffoli@leonardo.math.unipd.it\n\n"
  178.  
  179.            "Grazie ancora per aver installato Quid?.\n"
  180.            "Buon divertimento !"
  181.            )
  182.   (exit)
  183. )
  184.  
  185.  
  186. ; --------------------------------------------------------------------
  187. ;                   This is the actual Install Script
  188. ; --------------------------------------------------------------------
  189.  
  190. (if (< AmigaDos_Version 39)
  191.     (
  192.       (abort
  193.          "Quid? non funziona con questa versione di AmigaOS. "
  194.          "E' richiesta come minimo la versione 3.0 del Sistema Operativo."
  195.          )
  196.     )
  197. )
  198.     (setup_hd_install)
  199. (copy_volume1)
  200. (dearchive)
  201. (do_exit)
  202.